home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / imagedesk304 / imagedesk / instdata.lha / instdata / rexx / MakeAmigaPlusNo1.IDesk < prev    next >
Text File  |  1995-08-10  |  1KB  |  33 lines
  1. /* generates catalogs from the 'Amiga Plus CD No.1' */
  2.  
  3. /* --------------------- standard startup ----------------------- */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. if( ADDRESS() ~= "IDESK_REXXPORT" ) then
  8.     ADDRESS IDESK_REXXPORT
  9.  
  10. /* -------------------------------------------------------------- */
  11.  
  12. IDREQUEST "Abort|Continue" '"This Script requires the Amiga Plus CD No.1."'
  13. if (RESULT = 1) then exit
  14.  
  15. IDGETPATH '"Where to store the catalogs?"'
  16. if (RC > 0) then exit
  17. catdir = RESULT
  18.  
  19. if (right(catdir, 1) ~= ':') then
  20.     catdir = catdir || '/'
  21.  
  22. GENCAT '"'||catdir||Kolodziejczik.cat||'"' "AMIGA_PLUS:Bilder/Kolodziejczik" "#?.GIF"
  23. GENCAT '"'||catdir||Lesergalerie_GIF.cat||'"' "AMIGA_PLUS:Bilder/Lesergalerie/GIF-Format" "#?.GIF"
  24. GENCAT '"'||catdir||Lesergalerie_JPG.cat||'"' "AMIGA_PLUS:Bilder/Lesergalerie/JPEG-Format" "#?.JPEG"
  25. GENCAT '"'||catdir||Lesergalerie_TGA.cat||'"' "AMIGA_PLUS:Bilder/Lesergalerie/TARGA-Format" "#?.TGA"
  26. GENCAT '"'||catdir||SeaQuest_GIF.cat||'"' "AMIGA_PLUS:Bilder/SeaQuest/GIF" "#?.GIF"
  27. GENCAT '"'||catdir||SeaQuest_JPG.cat||'"' "AMIGA_PLUS:Bilder/SeaQuest/JPEG" "#?.JPG"
  28. GENCAT '"'||catdir||SeaQuest_TGA_G.cat||'"' "AMIGA_PLUS:Bilder/SeaQuest/Targa_Gross" "#?.TGA"
  29. GENCAT '"'||catdir||SeaQuest_TGA_K.cat||'"' "AMIGA_PLUS:Bilder/SeaQuest/Targa_Klein" "#?.TGA"
  30. GENCAT '"'||catdir||StarTrek.cat||'"' "AMIGA_PLUS:Bilder/StarTrek" "#?.TGA"
  31.  
  32. IDREQUEST OK '"Catalogs have been stored to:'||'0A'x||catdir'"'
  33.